home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Extras
/
wolledopus
/
dopus5
/
arexx
/
ClearRam.dopus5
< prev
next >
Wrap
Text File
|
1998-01-21
|
1KB
|
49 lines
/*
$VER: ClearRam.dopus5 V0.98 (30.10.1997) © Marco Wollkopf
E-Mail: Marco.Wollkopf@t-online.de
Homepage: http://home.t-online.de/home/Marco.Wollkopf
Löscht nach einer Sicherheitsabfrage alle Einträge
in der Ram Disk außer: Clipboards
ENV
T
Disk.info
Einstellungen:
-----------------------------------------------
[ARexx] DOpus5:ARexx/ClearRam.dopus5 {Qp}
-----------------------------------------------
*/
options results
parse arg port
IF port ~= "" THEN
ADDRESS value(port)
ELSE DO
say "Script muß von DirOpus aufgerufen werden"
exit
END
dopus request "'Wirklich die Ram Disk aufräumen?"||D2C(10)||" Alle Daten gehen verloren.' _aufräumen|_nicht aufräumen"
if rc = 0 then exit
lister new "ram:"
handle = result
lister wait handle
lister set handle busy on wait
lister query handle entries stem ein.
do c=0 to ein.count-1
lister select handle ein.c on
end
if exists('ram:Clipboards') then lister select handle "Clipboards" off
if exists('ram:T') then lister select handle "T" off
if exists('ram:ENV') then lister select handle "ENV" off
if exists('ram:Disk.info') then lister select handle "Disk.info" off
lister refresh handle
lister set handle busy off
command wait source handle delete
lister request handle '"Die Ram Disk ist jetzt aufgeräumt."'
lister close handle